<%

Function mensagens_adicionar_mensagem(tabela, mensagem, id_usuario_de, id_usuario_para)
	
	DIM data
	
	data = get_data()

	mensagem=sql_cod(mensagem)
	
	If permissao_tabelas(tabela, id_usuario_para) then

		Select Case tabela
		
			Case "geral"
			
						str = "INSERT into geral "
						str = str & "(id_usuario, mensagem, data) "
						str = str & "VALUES ('" & id_usuario_de &"', "
						str = str & "'" & mensagem & "', "
						str = str & "'" & data & "')"		
						Set rsI = conexao_mensagens.Execute(str)
			
			Case "individuais"
			
						str = "INSERT into individuais "
						str = str & "(id_usuario_de, id_usuario_para, mensagem, data) "
						str = str & "VALUES ('" & id_usuario_de &"', "
						str = str & "'" & id_usuario_para & "', "
						str = str & "'" & mensagem & "', "		
						str = str & "'" & data & "')"		
						Set rsI = conexao_mensagens.Execute(str)
					
			Case else
			
						str = "INSERT into "&tabela&" "
						str = str & "(id_usuario, id_clube, mensagem, data) "
						str = str & "VALUES ('" & id_usuario_de &"', "
						str = str & "'" & id_usuario_para & "', "
						str = str & "'" & mensagem & "', "		
						str = str & "'" & data & "')"		
						Set rsI = conexao_mensagens.Execute(str)
		
		End Select
		
	End If
		
End Function

%>